﻿' <summary>
' BeeWit IDE Entorno de desarrollo Visual para php.
' BeeWitPHP IDE es el único entorno de desarrollo para PHP 
' de tipo WYSIWYG (What You See Is What You Get). 
' ¡Ahora si!, aproveche la potencia del lenguaje PHP 
' y desarrolle más rápidamente gracias a la programación 
' intuitiva de BeeWit.
' Copyright © 2010 Dewins Murillo Garcia 
' EMAIL: dewinsmg@gmail.com
' EMAIL: dewins@beewitsoft.com
' Este Programa es Software Libre: usted puede redistribuirlo 
' y/o modificarlo bajo los términos de la Licencia Publica General 
' GNU como es publicada por la Fundacion de Software Libre; 
' en la 3ra versión de la licencia.
' Este programa es distribuido con la esperanza de que sea útil, 
' pero SIN GARANTÍA ALGUNA; sin siquiera la garantía implícita 
' de VALOR COMERCIAL o FORMADO PARA UN PROPÓSITO EN PARTICULAR. 
' Vea la Licencia Publica General GNU para mas detalles.
' Usted debe haber recibido una copia de la Licencia Publica General 
' GNU junto con este programa. Si no, vaya a http://www.beewitsoft.com
' o en http://code.google.com/p/ajax-beewit-php-ide/
' </summary>
' <remarks></remarks>

Public Class CtlOpenedProjects

    Public Sub New()

        ' Llamada necesaria para el Diseñador de Windows Forms.
        InitializeComponent()

        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().

    End Sub

    Public Sub LoadOpenedProjects()

        Dim dt As DataTable = Object_OpenedProjects.GetOpenedProjects
        Me.tbOpenedProjects.Items.Clear()

        For i = dt.Rows.Count - 1 To 0 Step -1
            Dim Fila As DataRow = dt.Rows(i)
            If Fila("path") <> "" Then
                Dim Boton As ToolStripLabel = New ToolStripLabel(Fila("path").ToString)
                Boton.AutoSize = False
                Boton.Tag = Fila("type")
                Boton.ToolTipText = Fila("path")
                Boton.Text = Fila("name")
                Boton.ImageAlign = ContentAlignment.MiddleLeft
                Boton.IsLink = True
                Boton.TextImageRelation = TextImageRelation.ImageBeforeText
                Boton.Width = 12000
                Boton.DisplayStyle = ToolStripItemDisplayStyle.ImageAndText
                Boton.ImageScaling = ToolStripItemImageScaling.None
                Boton.TextAlign = ContentAlignment.MiddleCenter
                Try
                    If Boton.Tag = "LOCAL" Then
                        Boton.Image = Object_Icons.bmpImage("icon_project")
                    Else
                        Boton.Image = Object_Icons.bmpImage("icon_project_ftp")
                    End If

                Catch ex As Exception
                    Boton.Image = Object_Icons.bmpImage("icon_add_other")
                End Try
                Me.tbOpenedProjects.Items.Add(Boton)
            End If
        Next

    End Sub

    Private Sub tbOpenedProjects_ItemClicked(ByVal sender As Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles tbOpenedProjects.ItemClicked
        Project_Interfaz = New clsLocalFiles
        Project_Path = e.ClickedItem.ToolTipText
        If e.ClickedItem.Tag = "local" Then
            Project_Type = enumProjectType.LOCAL
        Else
            Project_Type = enumProjectType.FTP
        End If
        Project_Name = e.ClickedItem.Text
        Control_Console.AddMessages("Loading project " & Project_Name & "... ", ctlConsole.enumTypeMessages.isNOTIFICATION)
        Control_Explorer.LoadProject()
        Control_Console.AddMessages("----> Loaded project " & Project_Name & "! ", ctlConsole.enumTypeMessages.isNOTIFICATION)
        General.Control_Menu.TSCompile.Enabled = True
    End Sub

End Class
